home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / APPLE SIMON.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  113 lines
  1. 5  GOSUB 7000
  2. 10  GR 
  3. 20  COLOR= 2
  4. 30  FOR A1 = 0 TO 18
  5. 40  HLIN 0,18 AT A1
  6. 50  NEXT A1
  7. 60  COLOR= 11
  8. 70  FOR A2 = 0 TO 18
  9. 80  HLIN 20,38 AT A2
  10. 90  NEXT A2
  11. 100  COLOR= 9
  12. 110  FOR A3 = 20 TO 38
  13. 120  HLIN 0,18 AT A3
  14. 130  NEXT A3
  15. 140  COLOR= 12
  16. 150  FOR A4 = 20 TO 38
  17. 160  HLIN 20,38 AT A4
  18. 170  NEXT A4
  19. 180  CLEAR 
  20. 190 S =  -16336
  21. 200 COUNT = COUNT +1
  22. 210 B =  INT( RND(1) *4 +1)
  23. 220  IF B = 1  THEN H$ = "Y"
  24. 230  IF B = 2  THEN H$ = "U"
  25. 240  IF B = 3  THEN H$ = "H"
  26. 250  IF B = 4  THEN H$ = "J"
  27. 260  IF COUNT = 1  THEN G$ = H$
  28. 270  IF COUNT >1  THEN G$ = G$ +H$
  29. 280  FOR S2 = 1 TO COUNT
  30. 290  IF  MID$ (G$,S2,1) = "Y"  THEN  GOSUB 1000
  31. 300  IF  MID$ (G$,S2,1) = "U"  THEN  GOSUB 2000
  32. 310  IF  MID$ (G$,S2,1) = "H"  THEN  GOSUB 3000
  33. 320  IF  MID$ (G$,S2,1) = "J"  THEN  GOSUB 4000
  34. 330  NEXT S2
  35. 340  FOR S3 = 1 TO COUNT
  36. 350  GET Z$
  37. 360  IF Z$ < > MID$ (G$,S3,1)  THEN  GOTO 5000
  38. 370  IF Z$ = "Y"  THEN  GOSUB 1000
  39. 380  IF Z$ = "U"  THEN  GOSUB 2000
  40. 390  IF Z$ = "H"  THEN  GOSUB 3000
  41. 400  IF Z$ = "J"  THEN  GOSUB 4000
  42. 410  NEXT S3
  43. 420  FOR PAUSE = 1 TO 1000: NEXT PAUSE
  44. 430  GOTO 200
  45. 1000  COLOR= 15
  46. 1010  FOR D1 = 4 TO 15
  47. 1020  HLIN 4,15 AT D1
  48. 1030  NEXT D1
  49. 1040  FOR E1 = 1 TO 25
  50. 1050 Z =  PEEK(S)
  51. 1060  NEXT E1
  52. 1070  COLOR= 2
  53. 1080  FOR F1 = 4 TO 15
  54. 1090  HLIN 4,15 AT F1
  55. 1100  NEXT F1
  56. 1110  RETURN 
  57. 2000  COLOR= 15
  58. 2010  FOR D2 = 4 TO 15
  59. 2020  HLIN 24,35 AT D2
  60. 2030  NEXT D2
  61. 2040  FOR E2 = 1 TO 25
  62. 2050 Z =  PEEK(S) - PEEK(S)
  63. 2060  NEXT E2
  64. 2070  COLOR= 11
  65. 2080  FOR F2 = 4 TO 15
  66. 2090  HLIN 24,35 AT F2
  67. 2100  NEXT F2
  68. 2110  RETURN 
  69. 3000  COLOR= 15
  70. 3010  FOR D3 = 24 TO 35
  71. 3020  HLIN 4,15 AT D3
  72. 3030  NEXT D3
  73. 3040  FOR E3 = 1 TO 25
  74. 3050 Z =  PEEK(S) - PEEK(S) + PEEK(S)
  75. 3060  NEXT E3
  76. 3070  COLOR= 9
  77. 3080  FOR F3 = 24 TO 35
  78. 3090  HLIN 4,15 AT F3
  79. 3100  NEXT F3
  80. 3110  RETURN 
  81. 4000  COLOR= 15
  82. 4010  FOR D4 = 24 TO 35
  83. 4020  HLIN 24,35 AT D4
  84. 4030  NEXT D4
  85. 4040  FOR E4 = 1 TO 25
  86. 4050 Z =  PEEK(S) - PEEK(S) + PEEK(S) - PEEK(S)
  87. 4060  NEXT E4
  88. 4070  COLOR= 12
  89. 4080  FOR F4 = 24 TO 35
  90. 4090  HLIN 24,35 AT F4
  91. 4100  NEXT F4
  92. 4110  RETURN 
  93. 5000  HOME 
  94. 5010  PRINT 
  95. 5020  PRINT "YOUR SCORE  = ";COUNT -1
  96. 5030  FOR PAUSE = 1 TO 4000: NEXT PAUSE
  97. 6000  HOME 
  98. 6010  PRINT 
  99. 6020  PRINT "DO YOU WANT TO PLAY AGAIN?"
  100. 6030  PRINT "PRESS 'Y' FOR YES AND 'N' FOR NO"
  101. 6040  GET W$
  102. 6045  HOME 
  103. 6050  IF W$ = "Y"  THEN  GOTO 180
  104. 6060  IF W$ = "N"  THEN  TEXT : HOME : END 
  105. 7000  HOME 
  106. 7005  PRINT "THIS IS A GAME THAT REQUIRES"
  107. 7010  PRINT "GREAT CONCENTRATION. USE THE"
  108. 7020  PRINT "Y,U,H,AND J KEYS AND TRY TO "
  109. 7030  PRINT "FOLLOW THE COMPUTER'S PATTERN."
  110. 7040  PRINT 
  111. 7050  PRINT "HIT ANY KEY TO BEGIN.": GET AA$
  112. 7090  HOME 
  113. 7100  RETURN